home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CRESC / Variations / gen-variants < prev    next >
Lisp/Scheme  |  1996-12-31  |  597b  |  12 lines
  1. gen-variants seed number symbol-pattern
  2.  
  3. One of a series of functions able to generate a set of variations from a symbol-pattern. The 'theme' symbol-pattern is stated first in the output followed sequentially by number of variants.
  4.  
  5. (setq mel (gen-variants 0.343 3 '(a (1 b) c d)))
  6. --> (a (1 b) c d a a d d c d a (1 b) c (1 b) c (1 b))
  7.  
  8. Use with note-lengths or velocities or within pick operations to control templates. Should you wish to remove the 'theme' from the output  statement use the nthcdr function:
  9.  
  10. (setq mel1 (nthcdr 4 (gen-variants nil 3 '(a b c d))))
  11. --> (d c a a b c d c c a b c)
  12.